program Project1; // Zadanie 5.4

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, pole: Real;

procedure pole_prostokata(x,y:Real; var wynik:Real);
// przekazywanie parametrow przez zmienne
  begin
    wynik := x*y;
    Writeln('Pole prostokata o boku a = ', x:4:2, ' i boku b = ', y:4:2);
    Writeln('wynosi ', wynik:4:2, '.');
  end;

begin
  Writeln('Program oblicza pole prostokata.');
  Writeln('Podaj bok a.');
  Readln(a);
  Writeln('Podaj bok b.');
  Readln(b);
  pole_prostokata(a,b,pole); // wywolanie procedury

  Readln; // czeka na nacisniecie klawisza ENTER
end.

